home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr26 / pwrutls2.zip / KILLFILE.BAS < prev    next >
BASIC Source File  |  1993-06-04  |  249b  |  12 lines
  1. 100 OPEN "\KILLFILE.DAT" FOR INPUT AS #1
  2. 110 COUNT = 0
  3. 120 WHILE NOT EOF(1)
  4. 130  INPUT #1, F$
  5. 140  PRINT "Deleting "; F$
  6. 150  KILL F$
  7. 160  COUNT = COUNT + 1
  8. 170 WEND
  9. 180 PRINT USING "#####"; COUNT;
  10. 190 PRINT " file(s) deleted"
  11. 200 SYSTEM
  12.